home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / PublicDomain / Anwendungen / RememberTime / S / RememberTime.rexx next >
OS/2 REXX Batch file  |  1999-04-23  |  1KB  |  40 lines
  1. /* RememberTime.rexx V1.0 (24/04-99)
  2.    Made by Tor Øyvind Bjorheim - torob@starmail.com */
  3.  
  4. IF (DATE(EUROPEAN)="13/07/96") THEN DO
  5.    CALL OPEN('timeread','S:Time.dat')
  6.    date = READLN('timeread')
  7.    time = READLN('timeread')
  8.    CALL CLOSE('timeread')
  9. END
  10.  
  11. IF ~(DATE(EUROPEAN)="13/07/96") THEN DO
  12.    date = DATE(EUROPEAN)
  13.    date = OVERLAY('-',date,6)
  14.    time = TIME()
  15. END
  16.  
  17. ADDRESS command 'requestchoice >RAM:T/Time.tmp "RememberTime V1.0" "Current date is: 'date' *nCurrent time is: 'time'" "Use|Time Prefs"'
  18.  
  19. CALL OPEN('timetmp','RAM:T/Time.tmp')
  20. choice = READLN('timetmp')
  21. CALL CLOSE('timetmp')
  22.  
  23. IF (choice=1) THEN DO
  24.    date = OVERLAY('-',date,INDEX(date,'/'))
  25.    ADDRESS command 'date 'date' 'time''
  26. END
  27.  
  28. IF (choice=0) THEN DO
  29.    date = OVERLAY('-',date,INDEX(date,'/'))
  30.    ADDRESS command 'date 'date' 'time''
  31.    ADDRESS command 'Sys:Prefs/Time'
  32.    date = DATE(EUROPEAN)
  33.    date = OVERLAY('-',date,6)
  34.    time = TIME()
  35.    CALL OPEN('timeread','S:Time.dat','WRITE')
  36.    CALL WRITELN('timeread',date)
  37.    CALL WRITELN('timeread',time)
  38.    CALL CLOSE('timeread')
  39. END
  40.